;==================================================
;选择音效
Sound_For_Item_Chage
    .IF CUSTOM_MUSIC_ENABLE
        LDA #MUSIC_ITEM - 1
        JSR Music_Init_Process
    .ELSE
        LDA #$03
        STA APU_STATUS
        LDX #$00
.Write
        LDA Sound_Data_For_Item_Chage,X
        STA $4000,X
        INX
        CPX #$04
        BCC .Write
    .ENDIF
    RTS

;==================================================
;翻页音效
Sound_For_Page_Chage
    .IF CUSTOM_MUSIC_ENABLE
        LDA #MUSIC_PAGE - 1
        JSR Music_Init_Process
    .ELSE
        LDA #$03
        STA APU_STATUS
        LDX #$00
.Write
        LDA Sound_Data_For_Page_Chage,X
        STA $4000,X
        INX
        CPX #$04
        BCC .Write
    .ENDIF
    RTS
    
;==================================================
;进入音效
Sound_For_Enter
    .IF CUSTOM_MUSIC_ENABLE
        LDA #MUSIC_ENTER - 1
        JSR Music_Init_Process
    .ELSE
        LDA #$02
        STA APU_STATUS
        LDX #$00
.Write
        LDA Sound_Data_For_Enter,X
        STA $4004,X
        INX
        CPX #$04
        BCC .Write
    .ENDIF
    RTS

    .IF 0 = CUSTOM_MUSIC_ENABLE
;======================================================================
Sound_Data_For_Item_Chage
;按键音效
    .DB $87,$89,$F0,$00
;翻页音效
Sound_Data_For_Page_Chage
    .DB $3F,$9A,$FF,$00
;进入节目声音
Sound_Data_For_Enter
    .DB $3F,$9A,$FF,$00
    .ENDIF
